home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 16
/
64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64
/
twm-listing 5
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
581b
|
23 lines
10 rem winput-demo
20 :
30 sys32168
40 poke53280,6 :poke53281,0 :printchr$(31)chr$(18)chr$(147)
50 :
60 rem ----- normale eingabe
70 (NULL) 5,5,"eingabe : ",a,10,12,a$
80 (NULL) 7,5,6,"ihre eingabe : "a$
90 :
100 rem ----- verwendung von "zeichen"
110 z$="jn"+chr$(133) :rem +f1
120 (NULL) 10,5,"sie koennen zwischen"
130 (NULL) 12,5,"'j', 'n' und 'f1' waehlen !"
140 (NULL) 14,5,6,"alles klar ? ",,z$,1,12,jn$
150 if ff$=chr$(133) then (NULL) 16,5," aha !, f1 gedrueckt !" :goto 170
160 (NULL) 16,5,6,"ihre eingabe : "jn$
170 :
180 rem ----- zahleneingabe
190 t=-34.234
200 (NULL) 19,5,6,"eine zahl > ",n,10,12,t
210 (NULL) 21,5,6,"ihre eingabe : "t
220 :